如何重复上一条记录?

有一个窗体,上面有多个文本框和组合框,因为目录这笔资料与下一笔资料大部门都是一样的,能不能利用copy功能把上一笔的资料复制到下一笔的相对应的文本框和组合框内.最好是做成按钮式,即一个复制按钮和一个粘贴按钮。

方法一：

很多软件里面都有这个功能啊?

原理非常简单。

只要添加一个command BUTTON 就可以了。

添加记录的代码相信大家都知道了。

Private Sub Command16_Click()

On Error GoTo Err_Command16_Click

DoCmd.GoToRecord , , acNewRec

exit_command16_click:

Exit Sub

err_command16_click:

MsgBox Err.Description

Resume Exit_Command16_Click

End Sub

我们更改一下即可，比如说现在有一个文本框，当然了，实际情况你可以再加代码，或者干脆用CONTROLS循环来做。

Private Sub Command16_Click()

On Error GoTo Err_Command16_Click

dim strTemp as string

strTemp=TextBox1.value

'原理很简单，先将控件值赋值给变量

'然后在添加记录后再将该变量值赋值给控件

DoCmd.GoToRecord , , acNewRec

TextBox1.value=strTemp

Exit_Command16_Click:

Exit Sub

err_command16_click:

MsgBox Err.Description

Resume Exit_Command16_Click

End Sub

另外 Ctrl+'(单引号)可以复制上一条记录同一字段内容。